home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / fmdrgdrp / opt2 / invent.exe / ORDER.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-20  |  658 b   |  30 lines
  1. Const MAX_ORDER = 3
  2. Global OrderFormItems(MAX_ORDER) As FormItem
  3. Global OrderForms(MAX_ORDER) As OrderForm
  4. Global RecentOrderNo As Long
  5.  
  6. Sub InitOrders ()
  7.     
  8.     FormInit OrderFormItems()
  9.  
  10. End Sub
  11.  
  12. Sub OrderOpen (srcgrid As Control, fname As String, tbname As String)
  13.     
  14.     If Not FormAvail(OrderFormItems()) Then
  15.         MsgBox "Cannot open more orders"
  16.         Exit Sub
  17.     End If
  18.  
  19.     i% = FormAlloc(OrderFormItems())
  20.     OrderFormItems(i%).fiFileName = fname
  21.     OrderFormItems(i%).fiTable = tbname
  22.     
  23.     RecentOrderNo = srcgrid.ColumnText(2)
  24.  
  25.     Set OrderForms(i%) = New OrderForm
  26.     OrderForms(i%).Show
  27.  
  28. End Sub
  29.  
  30.